home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch17 / ChekRefl.ray < prev    next >
Text File  |  1999-07-06  |  1KB  |  42 lines
  1. Viewpoint(1000, 1.9, -0.5)
  2. AmbientLight(128, 128, 128)
  3. LightSource(-1000, -500, 1000, 255, 255, 255)
  4. LightSource(1000, -500, 1000, 255, 255, 255)
  5. Checkerboard(
  6.   8, 8,
  7.   -100, 50, -100,
  8.   -75, 50, -100,
  9.   -100, 50, -75,
  10.   0.2, 0.2, 0.2, ' Ambient.
  11.   0.2, 0.2, 0.2, ' Diffuse.
  12.   20, 0.35,      ' Specular.
  13.   0.9, 0.9, 0.9, ' Reflected.
  14.   3, 1, 1.4,     ' TransN, n1, n2.
  15.   0, 0, 0        ' Tansmission.
  16. )
  17. Sphere( 50, 0, 0, -100,
  18.   0.2, 0.5, 0.2, ' Ambient.
  19.   0.2, 0.5, 0.2, ' Diffuse.
  20.   20, 0.35,      ' Specular.
  21.   0.8, 0.8, 0.8, ' Reflected.
  22.   3, 1, 1.4,     ' TransN, n1, n2.
  23.   0, 0, 0        ' Tansmission.
  24. )
  25. Sphere( 40, 65, 10, -35,
  26.   0.7, 0.1, 0.1, ' Ambient.
  27.   0.7, 0.1, 0.1, ' Diffuse.
  28.   20, 0.35,      ' Specular.
  29.   0, 0, 0,       ' Reflected.
  30.   3, 1, 1.4,     ' TransN, n1, n2.
  31.   0, 0, 0        ' Tansmission.
  32. )
  33. Sphere( 30, -57, 20, -43,
  34.   0.1, 0.1, 0.7, ' Ambient.
  35.   0.1, 0.1, 0.7, ' Diffuse.
  36.   20, 0.35,      ' Specular.
  37.   0, 0, 0,       ' Reflected.
  38.   3, 1, 1.4,     ' TransN, n1, n2.
  39.   0, 0, 0        ' Tansmission.
  40. )
  41.  
  42.